home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / ASCII.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  70b  |  6 lines
  1. while i$<>chr$(13)
  2.  i$=inkey$
  3.  if i$<>"" then ?asc(i$)
  4. wend
  5. end
  6.